perm filename VSWTCH.SAI[HAK,HPM] blob sn#159961 filedate 1975-05-20 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "SWITCH"
C00003 ENDMK
C⊗;
BEGIN "SWITCH"
INTEGER I,J;
OUTSTR("VIDEO CHANNEL:"); I←CVO(INCHWL);
OUTSTR("  LINE NUMBER:"); J←CVO(INCHWL);
 START_CODE
	HRRI	1,I;
	MOVE	2,J;
	ADDI	2,'401400;
	HRL	1,2;
	CALLI	1,'400070;
	MOVE	1,1;
 END;
END